home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / HyperCard 1.2.5 / More Stacks / Clip Art / card_3444.txt < prev    next >
Text File  |  1989-09-06  |  2KB  |  82 lines
  1. -- card: 3444 from stack: in
  2. -- bmap block id: 9303
  3. -- flags: 0000
  4. -- background id: 2707
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=140 top=77 right=225 bottom=369
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 2996
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=275 top=80 right=142 bottom=368
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to card id 2996
  43. end mouseUp
  44.  
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 8003
  51. -- rect: left=301 top=208 right=229 bottom=410
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Blow bubbles
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   put the userLevel into saveLevel
  63.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  64.   if the userLevel < 3 then exit mouseUp
  65.   choose oval tool
  66.   set filled to false
  67.   set centered to false
  68.   set lineSize to 1
  69.   set dragSpeed to 200
  70.   drag from 160,140 to 210,90
  71.   drag from 175,100 to 200,75
  72.   drag from 200,75 to 215,60
  73.   doMenu "Select All"
  74.   doMenu "Revert"
  75.   choose browse tool
  76.   set userLevel to saveLevel
  77. end mouseUp
  78.  
  79.  
  80. -- part contents for background part 1
  81. ----- text -----
  82. Pipe, mouthpiece